home *** CD-ROM | disk | FTP | other *** search
/ Bride Wars Press Kit / Bride Wars DPK.iso / pc / start.exe / start.dxr / 00003.ls < prev    next >
Encoding:
Text File  |  2008-08-07  |  3.0 KB  |  77 lines
  1. global appName, mark, gbPC, rootPath, myFolder, downloadApp, pdfApp, myFile
  2.  
  3. on prepareMovie
  4.   member("info").text = EMPTY
  5.   gbPC = the platform contains "win"
  6.   if gbPC then
  7.     mark = "\"
  8.     downloadApp = "download.exe"
  9.     pdfApp = "pdfLaunch.exe"
  10.     importFileInto(member("info"), _movie.path & "resources\info.txt")
  11.     member("logo").importFileInto(_movie.path & "resources\logo.png", [#dither: 0, #trimWhiteSpace: 0])
  12.     appName = member("info").line[2]
  13.     myFolder = member("info").line[3]
  14.     rootPath = _movie.path & "resources" & mark
  15.   else
  16.     mark = ":"
  17.     downloadApp = "download.app"
  18.     pdfApp = "pdfLaunch.app"
  19.     importFileInto(member("info"), _movie.path & "resources:info.txt")
  20.     member("logo").importFileInto(_movie.path & "resources:logo.png", [#dither: 0, #trimWhiteSpace: 0])
  21.     appName = member("info").line[1]
  22.     myFolder = member("info").line[3]
  23.     rootPath = _movie.path & "resources" & mark
  24.   end if
  25.   deleteItems()
  26. end
  27.  
  28. on baCopyProgressUpdate me, percentage, fileName
  29.   if not (member("status_txt").text = ("Loading " & percentage)) then
  30.     member("status_txt").text = "Loading " & percentage
  31.     _movie.updateStage()
  32.   end if
  33. end
  34.  
  35. on loadElements
  36.   member("status_txt").text = "Loading..."
  37.   makeFolder = baCreateFolder(baSysFolder("temp") & "stiksserp")
  38.   makeFolder = baCreateFolder(baSysFolder("temp") & "stiksserp" & mark & myFolder)
  39.   copyItems = baXCopyProgress(rootPath & myFolder, baSysFolder("temp") & "stiksserp" & mark & myFolder, EMPTY, "IfNewer", 1, "xxx", "Cancel", 24)
  40.   member("status_txt").text = "Connecting Files"
  41.   _movie.updateStage()
  42.   moveFile = baCopyFile(rootPath & "functions" & mark & downloadApp, baSysFolder("temp") & "stiksserp" & mark & myFolder & mark & "fscommand" & mark & downloadApp, "IfNewer")
  43.   savePath()
  44.   member("status_txt").text = "Connecting Files"
  45.   _movie.updateStage()
  46.   moveFile = baCopyFile(rootPath & "functions" & mark & pdfApp, baSysFolder("temp") & "stiksserp" & mark & myFolder & mark & "fscommand" & mark & pdfApp, "IfNewer")
  47.   member("status_txt").text = "Loaded"
  48.   _movie.updateStage()
  49.   openApp = baOpenFile(baSysFolder("temp") & "stiksserp" & mark & myFolder & mark & appName, "Normal")
  50.   _player.quit()
  51. end
  52.  
  53. on deleteItems
  54.   folderList = baFolderList(baSysFolder("temp") & "stiksserp")
  55.   repeat with i in folderList
  56.     if not (i = myFolder) then
  57.       deleteInside = baXDelete(baSysFolder("temp") & "stiksserp" & mark & i, "*.*")
  58.       deleting = baDeleteFolder(baSysFolder("temp") & "stiksserp" & mark & i)
  59.     end if
  60.   end repeat
  61. end
  62.  
  63. on savePath
  64.   if objectp(myFile) then
  65.     myFile = 0
  66.   end if
  67.   myFile = new(xtra("fileio"))
  68.   openfile(myFile, baSysFolder("temp") & "stiksserp" & mark & myFolder & mark & "fscommand" & mark & "path.txt", 0)
  69.   delete(myFile)
  70.   createFile(myFile, baSysFolder("temp") & "stiksserp" & mark & myFolder & mark & "fscommand" & mark & "path.txt")
  71.   openfile(myFile, baSysFolder("temp") & "stiksserp" & mark & myFolder & mark & "fscommand" & mark & "path.txt", 0)
  72.   mySaveString = rootPath & "functions" & mark
  73.   writeString(myFile, mySaveString)
  74.   closeFile(myFile)
  75.   myFile = 0
  76. end
  77.